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ink fcb onto exit handl 
exit_hnd - be handler for PL/I punt ine 
stop_prog - stop pli program 
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te eee - initiottze stack and ph on main program 
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ee , —— oF: 6:41 CPLIRTL.SRCJPLICONTRL.MAR; 1 - (1) 
title pli$control - pli ruttime Library control routines 
"ident 71-0047 — ; Edit LEB1004 
3 Edit CGN1 8 
: Edit wHM1002 


MARABRAARASALALAALALALL LALA AL ALE REESE AREA ERE E ASRS REESE EEE RRR ASRS RR REE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY r USED AND cor ree 


3* ® 
3* ® 
;* ® 
3* ® 
°* ¥ 
3* * 
3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH WITH T * 
0000 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
0000 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8 8 * TRANSFERRED. * 
3 ® 
0000 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 :* CORPORATION. * 
4 ® 
0000 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
+464 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
g ® 
0000 3* * 
0000 FARRAR ERATE REAR — 
0000 3 
0000 . 
0000 facility: 
0000 
0000 VAX/VMS PLI runtime Library 
0000 
abstract: 


This module contains the data structures and code necessary to control 
the PL/I runtime Library. 


author: R. Heinen 22-Jan-1980 
Modifications: 


1-002 Bill Matthews 29-September-1982 

Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Chip Nylander 23-February-1983 

When closing all files for exit, call PLISCLOSE with a 

new optiona par anetor that tel(s it what severity level 

an error should be signalled with. 


1-004 Linda Benson 12-May-1983 
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= pli runtime Library control routines 


0000 


000000C0 
000000¢8 


00000000 


00000001 


SSSSSSSSSSSSSSSSSS3SSSS33S3S3S33333 
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external definitions 


$Sdefstk 
$stsdef 


; global data 


: runtime control block 


-psect pli$gl_rt_cblk,noshr,pic,usr,gbl,ovr.wrt,rd,noexe,rel 


Li$gl_rt_cblk: 
— | 


° 48 
pliS$fcb_head:: 
ebLkL 


2 


: define offsets into control block 


_exit_hnd 


st 
if_reason 


ags 
btk_v_inited 
blk_v_main 


rtshare 


hnnnnnnn 
Coton 


—ONMn——- OL O 
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3; define runtine stack 
3; sts$k symbols 


: exit control block and runtime flags 


exit control block 
exit handler address 
exit arg count 


feb List head 
reason for exit 
control flags 
initialized 
options main 


address to store reason 


‘ 


: 


oO 
~_Oo 
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F4 AD 

6D — 
07 1C A2. (O01 COCéE 

6D 00000000‘ GF 4 
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100 
! 1 
108 
8 104 
0 ! 5 
0000 107 
9 108 
QO0A 109 
oooc § 110 
O18 112 
O19 118 
8 9 114 
eae 
0019 116 
52 _ 00000000' GF 4 9 117 
28 1C A2 00 t 9 118 
119 
0025 120 
8 a. Tar 
1¢ A2. 01 88 a § 
10 A210 A X 0029 1 
14 42 104A 9E 0 124 
62 04 0 125 
04 A2.  0064°CF 9E 0 126 
08 A205 DO 0038 127 
OC A2 18 A2 YE OOSF 128 
0044 129 
05 004D 130 
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SEP- PLIRTL.SRCJPLICONTRL.MAR; 1 
-sbttl pliSoptionsmain - initialize stack and options main program 


= initialize stack and o 
pliSoptionsmain - initialize stack and options main program 
functional description: 


This routine initializes the stack frame for options main procedures 
and declares an exit handler for for the program. 


inputs: 
none 

outputs: 
none 


pliSoptionsmain:: 
clrl stk _l_cnd_lst(fp) ; set up control block List 
movab gol iSopthain hnd,(fp) ; set up frame handler 
b nitialize_exithandler ; initialize exit handler 
bbcs #cblk_v_main,cblk_l_flags(r2),10$; br if already initialized 
* movab g*pliSdef_hnd, (fp) 3 setup normal condition handler 
: rs 


> check for uninitialized exit handler 
initialize_exithandler: 


movab gpl isal rt_cblk,r2 ; address control block 
cblk_v_Tnited,cblk_l_flags(r2),10$; br if inited 


bbs 
3; setup control block 
bisb #lacblk_v_inited,cblk_l tlagetr et: set inited 
movab cblk_q_fcB_list(r2),cBLK_q_fcb_list(r2); initialize list head 
movab cblk~q-fcb-List(re).cblk-q-fcb_List+4 (re): 
clrl  cbLk-L exif blk (re) ; Build exit handler control block 
movab w*plT$exit_find,cblk_l_exit_hnd(r2): 
movl #S,cblk_l_@xit_argce r2) ; 
movab cb(k_l_exit reason(r2) ,cblk_l_exit_addr(r2); 
$dclexh_s cblk_l_exit_blk(r2) 
108: rsb ; done 
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+ 

pli$Sterm_prog - set up termination 

functional description: 

This routine is used prior to a resignal to the command interpreter 


following a ERROR condition that was not handled. The action is to reset 
the options_main flag to prevent the FINISH condition from being qugnetied. 


4— 1 § 3* 
133 ; 
4—E 134; 
4€ 135; 
4— 1 § : 
Bee lar 8 
Oc 130: 
04E 140 ; When an exit is done inside the command interpreter, the FINISH signa 
04E 141 ; would not be fielded by any existing stack frame. fhis action prevents 
3 a jun condition message from being displayed. 
bce 1? k FINISH diti f being displayed 
b0cE 144 ; inputs: 
04E 145; 
— J—— 
04E 148 ; outputs: 
O4E 149; 
a wie 
Bote 136 pli$Sterm_prog:: 
50 Q000001C'GF 9E rh] 15 movab q Blisat_rt.cblkecblk_t_flags.r0; address area 
60 02 BA 83 3 eich lacblk_v_main, (r0) 3; reset options_main 
rs 
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be fcb - (pre b onto exit handle patie 1 96:43:28 PLIRTL.SRCJPLICONTRL.MAR; 1 — * 3) 
-sbttl pliSlink_fcb - Link fcb onto exit handler chain 


+ 
pli$link_fcb 
; functional description: 
; This routine ge an fcb onto the exit handler List in pli$gl_rt_cblk. 


; If the entry the first entry then the control block is designated as 
; an exit handler control block. 


r6 = fcb address to Link 
; outputs: 
none. 
Li$link feb:: 
ushr #*m<r0,r1,r2> 
sbb initialize_exithandler : initialize handler and block 
; link fcb onto List 


10S: insque (r6) .cbUk_q feb_list(r2); insert fcb in List 
peer #*m<r0,r1,r2> 
rs 


: inputs: 
p 


— — — — — — — — — — — — — — — — — — dd dd —— 
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1006 plisexit hnd - exit handler for PL/I. run -SEP-1984 F386 : 2} EPLIRIL. SRCJPLICONTRL MAR; 1 ut (§) 1-0 


-sbttl pliSexit_hnd - exit handler for PL/I runtime 
pliSexit_hnd = PL/I exit handler 


188 :+4 
$ ; 
064 : ; functional description: 
64 191 : This routine is entered on exit in order to clean up the I/0 database. 
Ree 136 ; Prior to cleaning up the 1/0 PLi$_finish is signalled. 
64 194 : inputs: 
064 195; 
64 138 ; O(ap) = 1 
8 8 3 4(ap) = address of the exit control block argument List 
0064 199 : outputs: 
064 00 ; 
064 01; none. 
0064 0 3 
0064 03 ;-- 
0000 0064 04 sentry pli$exit_hnd,0 
0066 05 ; 
88 8 : give finish condition handlers a chance 
0D 14 AC O01 €E1 0066 08 ° bbc echt _v_main,cblk_l -flags-cblk_ l_exit_argc(ap),10$; skip signal if n 
00000000'8F ODD 0068 09 pushl #pli$—finish : signal” finish condition 
00000000'GF 01 FB —84 19 calls #1 ,g*Tibssignal : 
84 a8 : close all open files 
02 odd 0078 14 jos: pushl #sts$k_error ; signal E-level errors, not F-level 
00 OD OO7A 215 pushl #0 no environment o tion 
7E O08 BC OF OO7C 216 remque acblk_q_fcb_list-cblk_l exit ok tes ae 7(sp); get a control block 
09 1D 0080 sit bys 153 : vset then done 
00000000'GF 03 FB 0082 18 calls #3,g*pli$close : 1 B. file 
ED 11 0089 219 brb 10 : continue until done 
04 0088 220 15$: ret 
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-sbttl pli$stop_prog - stop pl1 program 
pli$stop_prog - stop pli program 
functional description: 
pe routine is envoked when a RET or BLOCK_END is done in an 


OOOCCOOOOCOCSoooO 


C 
p C 5 3 ++ 
C 4; 

0 : 23 
ae 
O8C § : 0 opti ons main procedure or when a STOP is executed. | 
. : , 3; The action is to signal the finish condition and terminate the program. 
6 t Note that this can cause infinite Loops in the user program if it 
S : 7 ; handles FINISH and somehow does a STOP or ret etc. 

b08¢ 5 ; inputs: 

O08¢ 7 : 4(ap) = exit status 

bo8¢ 39 : outputs: 

008C 40 ; 

Boat rt 3 none. 

0000 008¢ $08 . entry pLi$stop_pr 
50 00000000'GF  9€ 008E gh movab gaguisgl-r “rt 96 ek, 
1¢ AO 02 M 009 45 icb lacblk_V_main, —24 L ~flags(ro) disable force exit 
won bp ORE 38 —7* l ia. naaß nis the condition 
clr r : 
00000000'GF 01 FB QOA1 248 catts #1,9*lib$signal : signal the condition 
OOAB 249 $Sexit_s 4(ap) 3 end the program 
0002 250 .end 


4-00 Pp PLIS 
TRL.MAR; 1 — 3) he 


dD 2 
PLISCONTROL = pli runtime Library control routines i at | a bs 96:43:20 — 
6-SEP=1984 36:4 TL.S 0 


Symbol table 


CBLK_L_EXIT_ADDR = S 9 
CBLK_L-EXIT_ARGC = 
CBLK_L-EX!T_BLK = 
CBLK-L"EXIT_HND = 4 
CBLK_L_EXIT REASON = 18 
CBLK-L-FLAGS 2 3 1 
CBLK_Q"FCB_LIST = 1 
CBLK_V_INITED = 00 9 
CBL AIN z 3 ; 1 
INITITACIZE_EXITHANDLER 19 R 0 
LIBSSIGNAL eeeeeeee =X 0 
PLISSTERM_PROG O000004E RG 8 
PLISCLOSE eeteeeee =X 
PLISDEF _HND eeenkere X 8 
PLISEXIT_HND 00000064 RG 
PLISFCB_READ 000000C0 RG 02 
PLISGL_RT_CBLK 444445464 fe b¢ 
PLISLINK_FcB Bo 0808 RG 0 
PLISOPTIONSMAIN 00000000 RG 03 
PLISOPTMAIN_HND eeeeeere 03 
PLISSTOP_ PRO 0000008C RG 03 
PLI$_FINTSH 222222 03 
STK_C_AP 00000 
STK-L-ARG_LIST FFFFFFF 
STK_L_CND_HND 0000000 
STK_L-CND-LST FFFFFFFG 
STK_L_DISPLAY FFFFFFFC 
STK_L_FP 0000000C 
STK_L_PC 00000010 
STK_L_PSL 00000004 
STK_L_REGS 00000014 
STSSK- ERROR = 00000002 
SYSSDCLEXH eeeereee GX 03 
SYSSEXIT teeeeeee GX 95 
$eswmeannnmocoeensnce + 


PSECT name Allocation PSECT No. Attributes 

- «ABS . 00000000 <¢ 0.) 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS FFFFFFFC ¢ 0.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 

PLISGL_RT_CBLK 886 ( 200} 8 ( 33 PIC USR OVR REL GBL NOSHR NOEXE RD WRT NOVEC BYTE 

_PLISCODE 00 ( J ( -) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
pmeacnwone mca meee e ese + 


— 


Phase Page faults CPU Time Elapsed Time 


fSesand proces 36 883 
00:89:00: 


Command processing 


Pass 1 
Symbol table sort 
Pass 2 
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Smee =) BE BI 


Theworking is Limit was pe pages. 


bytes 4 pages) of virtual memory were used to buffer the intermediate ~— 
J were 10 pages of symbol table space allocated to hold 65 non-local and 5 local symbols. 
250 source KAS were read in Pass 1, producing 18 object records in Pass 2. 
13 pages of virtual memory were used to define 12 macros. 


pawn we mew em es sweeney 


; Macro library statistics H 


Macro Library name Macros defined 
“$52 2S0UACE 8: AN -OBJJPLIR: MAC.MLB;1 $ 
55$DUA28 SYSLIBISTARLET. MLB; 2 
Tovacs (all libraries) 9 


126 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ON/D1 SABLE=TRACEBACK/L1S=L1S$:PLICONTRL/OBJ=OBJ$:PLICONTRL MSRC$:PLICONTRL/UPDATE=(ENH$:PLICONTRL)+LIB$:PLIRTM 
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